#!/usr/bin/perl
# configuration 
# ficher de log de frogd
# frogd logfile
$logfile = "/usr/local/frogd/data/frogd.log";

# fichier rrd
# rrd file
$rrdfile = "/usr/local/frogd/data/frogd.rrd";

$rrd-path=""
# programme, ne rien editer apres cette ligne 
open(FILE,"$logfile") || die("le fichier $logfile n'existe pas");
@lignes = <FILE>;
$last = $lignes[$#lignes];
chop($last);
@element = split(/:/, $last);

system("$rrdpath/rrdtool update $rrdfile N:$element[2]:$element[3]:$element[4]");

close(FILE);
